home *** CD-ROM | disk | FTP | other *** search
- ;char left_button_down();
-
- EXTRN _memory_model:byte
-
- _TEXT SEGMENT BYTE PUBLIC 'CODE'
- ASSUME CS:_TEXT
- PUBLIC _left_button_down
- _left_button_down proc near
- mov ax,3 ;function number
- int 33h ;vector number
- sub ax,ax ;clear return value
- test bx,1 ;test for left button
- jz L1 ;jump if not down
- inc ax ;return TRUE
- L1: cmp _memory_model,0 ;quit
- jle quit ;
- db 0CBh ;RET far
- quit: ret ;RET near
- _left_button_down ENDP
- _TEXT ENDS
- END